home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Gemini / Horoscope Companion: Gemini.iso / pc / gemini / ce.dir / Internal_11.ls < prev    next >
Encoding:
Text File  |  1996-10-08  |  951 b   |  38 lines
  1. on startRollover whichSprite
  2.   global gWhichGender
  3.   if gWhichGender <> "M" then
  4.     hStartRolloverAction(whichSprite)
  5.   end if
  6. end
  7.  
  8. on mouseDown
  9.   global gWhichGender
  10.   if gWhichGender <> "M" then
  11.     if hButtonAction02() then
  12.       mouseUp()
  13.     end if
  14.   end if
  15. end
  16.  
  17. on mouseUp
  18.   global gWhichGender, gWhichAge, gWhichYear, gTextSpriteNum, gWhichOldGenderSprite
  19.   if gWhichGender <> "M" then
  20.     cursor(4)
  21.     hDefaultScrollText()
  22.     set gWhichGender to "M"
  23.     set tWhichText to the number of member (gWhichGender && gWhichAge && gWhichYear && "text") of castLib the castLibNum of sprite gTextSpriteNum
  24.     set the memberNum of sprite gTextSpriteNum to member tWhichText
  25.     puppetSprite(gWhichOldGenderSprite, 0)
  26.     set gWhichOldGenderSprite to the clickOn
  27.     updateStage()
  28.     hFingerPointingCursor()
  29.   end if
  30. end
  31.  
  32. on endRollover whichSprite
  33.   global gWhichGender
  34.   if gWhichGender <> "M" then
  35.     hEndRolloverAction(whichSprite)
  36.   end if
  37. end
  38.